home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo88a.d64 / star trek (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  403 lines
  1. 1 DEFFNA(X)=INT(RND(1)*6)+1
  2. 2 DATA"ALPHA OMEGA",ORION,ROMULUS,RIGEL,SYSTEM,CLUSTER,BASE,NEBULA,"SPACE MINE"
  3. 4 DIMA$(20)
  4. 5 POKE53280,0:POKE53281,0
  5. 6 FORT=1TO4:READX$(T):NEXT
  6. 7 FORT=1TO4:READY$(T):NEXT
  7. 8 FORT=1TO4:READZ$(T):NEXT
  8. 9 DATASTAR,"CARGO SHIP","SMALL MOON"
  9. 10 PRINT"[147][159].  [221][158][213][192][201][176][178][174][213][192][201][176][192][201]    [213][192][201][178] [178] [178] [178][192][201] [221]
  10. 11 [153]"   (null)SYSMID$TANRIGHT$ (null) -TAN<-=(null)    MID$TANRIGHT$-TAN< (null) -TAN(null) (null)
  11. 12 PRINT"   [221][158][202][192][203] [177] [177] [177][173][202][189]    [202][192][203][177] [177] [177] [177]   [221]
  12. 13 [153]"   /TANTANTAN^SYS=TANRIGHT$(null)TANRIGHT$OR=^OR=^^  =TAN^(null)TANRIGHT$ORTANTANTANEXP  OPEN(null)
  13. 14 PRINT"   [160]  [159].[221][158][171][192][179][171][192][179] [221]  [221] [221]  [171][179] [202][192][201][221]
  14. 15 [153]"       (null)SYS>TAN(null)> > >  > >TANEXP>TANEXPMID$TAN(null)(null) OPEN.
  15. 16 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  16. 17 [153]"  OPEN.              .
  17. 18 PRINT
  18. 19 PRINT"        [159][209]               [164][175][185][175][164][172][185][185][185][187]
  19. 20 [153]"                         OPEN/ (null)(null)WAIT GET
  20. 21 PRINT"            [159]. [209]         [159]/  [171] [164][175][146][190]
  21. 22 [153]"                       CONT*
  22. 23 PRINT"     [159].                                .
  23. 24 [153]
  24. 25 [153]" OPEN.           .       *LIST*TOTOWAIT RND       OPEN.
  25. 26 PRINT"[155][162][185][175][175][164][187]               [152][164][155][164][164][164][164][164][146]
  26. 27 [153]"LIST- -- -PRINT#USRUSRUSRUSRUSRFREFREFREFREFREFREWAITNEWNEWNEWLIST-PRINT# -- --WAIT
  27. 29 PRINT"[152]      [223][146]              [155] - -- [159][146][210][210][210][210][210][210][210][210][210][210][210][210]
  28. 30 [153]"POKEFREUSRTAB( COS                PRINT#(null)   WAITSTEPOPENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  29. 31 PRINT"              [159].       [151][188][162][162][146]        [159]. [162][158]   [146]
  30. 32 [153]"LISTLOGWAIT                                SYSNEW   SYS  WAIT
  31. 33 PRINT"[155] [146]                               [158][190]     [158][160][146]
  32. 34 [153]"LIST*WAIT                    OPEN.        * SYS      SYS WAIT
  33. 36 PRINT"      [159].[209] DON [155]CUR[152]TI[151]S 1O-21-85  [190] [158]  [158]   [158]  [146]"
  34. 37 GETA$:IFA$=""THEN37
  35. 38 GOTO2000
  36. 40 POKE53281,0:POKE53280,0:INPUT"[146][147]DO YOU NEED TO READ INFO FILES (Y/N)";A$
  37. 41 IFLEFT$(A$,1)<>"Y"THEN230
  38. 50 PRINT"[147]";
  39. 51 A$(1)="   FROM: STAR FLEET COMMAND"
  40. 52 A$(2)="     TO: U.S.S. ENTERPRISE
  41. 53 A$(3)[178]"SUBJECT: WEAPON SPECIFICATIONS"
  42. 54 A$(4)[178]"         3 BANKS OF 2 PHASERS EACH"
  43. 55 A$(5)[178]"         RANGE: 5000 KM - 150000 KM "
  44. 56 A$(6)[178]"         DAMAGE: 1-9 UNITS"
  45. 57 A$(7)[178]"         2 TUBES OO 3 PHOTONS EACH"
  46. 58 A$(8)[178]"         RANGE: 20000 KM - 200000 KM"
  47. 59 A$(9)[178]"         DAMAGE: 8 UNITS"
  48. 60 A$(10)[178]"         5 ANTI-MATTER PROBES"
  49. 61 A$(11)[178]"         RANGE: 40000 KM"
  50. 62 A$(12)[178]"         DAMAGE: 10 UNITS"
  51. 63 B$(1)[178]"LOADSUBJECT: ENGINE SPECIFICATIONS"
  52. 64 B$(2)[178]"         2 WARP ENGINE NACELLES"
  53. 65 B$(3)[178]"         EMG. SPEED: WARP 8 (512(null)C) "
  54. 66 B$(4)[178]"         REG. SPEED: WARP 6 (216(null)C)
  55. 67 B$(5)="         4 IMPULSE ENGINES "
  56. 68 B$(6)="         TOP SPEED: SUB LIGHT (1/3[214]C)
  57. 71 C$(1)[178]"   FROM: STAR FLEET COMMAND"
  58. 72 C$(2)[178]"     TO: U.S.S. ENTERPRISE
  59. 73 C$(3)="SUBJECT: WEAPON SPECIFICATIONS"
  60. 74 C$(4)="         3 BANKS OF 2 PHASERS EACH"
  61. 75 C$(5)="         RANGE: 50000 KM - 2000 KM "
  62. 76 C$(6)="         DAMAGE: 400- 10 UNITS"
  63. 77 C$(7)="         2 BANKS OF 1 PHOTON TUBE EACH"
  64. 78 C$(8)="         RANGE: 70000 KM - 30000 KM"
  65. 79 C$(9)="         DAMAGE: 700 UNITS"
  66. 80 D$(1)="BRIEFING: UNIDENTIFIED SHIPS HAVE"
  67. 81 D$(2)="          INVADED FEDERATION SPACE"
  68. 82 D$(3)="          AND ARE ATTACKING SEVERAL"
  69. 84 D$(4)="          PEACEFULL OUTPOST PLANETS"
  70. 85 D$(5)="MISSION: NEUTRALIZE ALL OPPOSING ENEMY"
  71. 86 D$(6)="          DANGERS"
  72. 87 D$(7)="       TRANSMISSION COMPLETE"
  73. 89 FORX=1TO15
  74. 90 FORI=1TOLEN(A$(X))
  75. 91 IFMID$(A$(X),I,1)<>" "THENPOKE54296,2:POKE54296,0
  76. 92 PRINTMID$(A$(X),I,1);:NEXTI
  77. 93 PRINT""
  78. 94 NEXTX
  79. 95 PRINT"[145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  80. 96 GETA$:IFA$<>""THEN100
  81. 97 PRINT"[146][145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  82. 98 GETA$:IFA$<>""THEN100
  83. 99 GOTO95
  84. 100 FORX=1TO9
  85. 101 FORI=1TOLEN(B$(X))
  86. 102 IFMID$(B$(X),I,1)<>" "THENPOKE54296,2:POKE54296,0
  87. 103 PRINTMID$(B$(X),I,1);:NEXTI
  88. 104 PRINT""
  89. 105 NEXTX
  90. 106 PRINT"[145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  91. 107 GETA$:IFA$<>""THEN111
  92. 108 PRINT"[146][145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  93. 109 GETA$:IFA$<>""THEN111
  94. 110 GOTO106
  95. 111 PRINT"[147]"
  96. 200 FORX=1TO9
  97. 201 FORI=1TOLEN(D$(X))
  98. 202 IFMID$(D$(X),I,1)<>" "THENPOKE54296,2:POKE54296,0
  99. 203 PRINTMID$(D$(X),I,1);:NEXTI
  100. 204 PRINT""
  101. 205 NEXTX
  102. 206 PRINT"[145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  103. 207 GETA$:IFA$<>""THEN211
  104. 208 PRINT"[146][145]HIT A KEY TO CONTINUE":FORR=1TO50:NEXTR
  105. 209 GETA$:IFA$<>""THEN211
  106. 210 GOTO206
  107. 211 PRINT"[147]"
  108. 230 PRINT"[147]----- LOCKED INTO LIBRARY COMPUTER -----"
  109. 231 INPUT"LAST NAME";LN$
  110. 235 PRINT"[158]WELCOME ABOARD THE U.S.S. ENTERPRISE,"
  111. 236 PRINT"CAPTAIN "LN$
  112. 290 PRINT"THE BRIDGE IS QUIET, SAVE A MONOTONOUS  HUM OF THE ENGINES."
  113. 291 PRINT"SLOWLY, SPOCK TURNS TOWARD YOU AND SAYS,";
  114. 292 PRINT"'SENSORS ARE PICKING UP A SHIP CAPTAIN,"
  115. 293 PRINT"IT COULD BE ONE OF THE HOSTILE CRAFTS.
  116. 294 [153]"IT LOOKS AS IF IT'S ROMULAN'"
  117. 300 [143]
  118. 301 W[178]1:PO[178]1:PH[178]1:LO[178]1:I[178]1:CI[178]1
  119. 302 SP[178]3:CO[178]0:PT[178]6:PR[178]5:EN[178]50
  120. 303 KS[178][181]([187](1)[172]4)[170]1
  121. 304 RE[178]50
  122. 305 SC[178][181]([187](1)[172]150000)[170]50000
  123. 310 [133]"COMMAND";C$
  124. 311 [153]"ONOPEN"
  125. 320 [139][200](C$,3)[178]"WAI"[167][141]400:[137]335
  126. 321 [139][200](C$,3)[178]"PRO"[167][141]450:[137]335
  127. 322 [139][200](C$,3)[178]"PHA"[167]G[178]RE:GE[178]EN:[141]480:[137]410
  128. 323 [139][200](C$,3)[178]"STA"[167][141]550:[137]335
  129. 324 [139][200](C$,3)[178]"PHO"[167][137]440
  130. 325 [139][200](C$,3)[178]"SPE"[167][141]650:[137]335
  131. 326 [139][200](C$,3)[178]"COU"[167][141]700:[137]335
  132. 327 [139][200](C$,3)[178]"RAN"[167][141]750:[137]335
  133. 328 [139][200](C$,3)[178]"LAU"[167][141]1000:[137]335
  134. 329 [139][200](C$,3)[178]"ESC"[167][141]1100:[137]335
  135. 330 [153]"SPOCK SAYS, 'THAT'S ILLOGICAL, CAPTAIN'":[137]310
  136. 335 [139]W[178]0[167]SP[178]0:[137]350
  137. 336 SC[178]SC[171](((SP[174]4)[172]10)[172]CI)
  138. 339 [139]SP[179]6[175]WW[177]0[167]WW[178]WW[171]1
  139. 340 [139]SP[177]6.9[167]WW[178]WW[170]1:[139]WW[178]5[167][153]"'BETTER SLOW DOWN', SAYS SCOTTY"
  140. 341 [139]WW[178]6[167][153]"'ME ENGINES CAN'T TAKE IT!' SAYS SCOTTY"
  141. 342 [139]WW[178]7[167][153]"'ME ENGINES ARE SHUT DOWN!', SCOTT SAYS":W[178]0
  142. 350 [139]SP[179]7[175]WW[177]0[167]WW[178]WW[171]1:[139]WW[178]0[167]W[178]1:[153]"'ENGINES REPAIRED',SAYS SCOTTY"
  143. 351 [139]SC[179]1[167][153]"RAMMED--- BOTH SHIPS DEAD!":[137]917
  144. 355 SC[178]SC[171]((KS[174]4)[172]10)
  145. 360 [139]SC[179]90000[167][141]900
  146. 361 [139]MR[178]1[167][141]690
  147. 370 [139]PH[178]0[167]HH[178]HH[171]1:[139]HH[179]1[167]PH[178]1:[153]"'PHASERS REPAIRED',SAYS SCOTTY"
  148. 371 [139]PO[178]0[167]PP[178]PP[171]1:[139]PP[179]1[167]PO[178]1:[153]"'PHOTONS TUBES REPAIRED',SAYS SCOTTY"
  149. 372 [139]LO[178]0[167]LL[178]LL[171]1:[139]LL[179]1[167]LO[178]1:[153]"'TARGETING COMPUTER REPAIRED',SAYS SCOTT"
  150. 376 [139]EN[177]10[167]EL[178]0
  151. 380 EN[178]EN[170]1:[139]EN[177]50[167]EN[178]50
  152. 381 [139]W[178]1[167]EN[178]EN[171]SP:[139]EN[179]1[167]EN[178]1:[153]"'ENGINES SHUT OFF,NO ENERGY',SAYS SCOTTY":SP[178]0
  153. 382 [139]EN[179]2[175]EL[178]0[167][153]"THE EMERGENCY LIGHTS FLICKER ON":EL[178]1
  154. 383 [139]EN[179]0[167]1300
  155. 399 [137]310
  156. 400 [153]"'MAINTAINING COURSE, SIR', SULU SAYS":[142]
  157. 410 [139]GE[178]EN[167][137]335
  158. 411 [139]RE[179][177]G[167][153]"'DIRECT HIT!' STATES SULU":[137]420
  159. 415 [153]"'WE MISSED THEM, SIR' REPORTS CHEKOV":[137]335
  160. 420 [153]"'SENSORS SHOW";G[171]RE;"UNITS DAMAGE'"
  161. 422 [137]335
  162. 440 [139]PT[178]0[167][153]"'ALL PHOTONS EXPENDED' SAYS CHEKOV":[137]335
  163. 441 [139]PO[178]0[167][153]"SCOTTY SAYS,'PHOTON TUBES ARE DAMAGED'":[137]335
  164. 442 [139]EN[179]4[167][153]"'NOT ENOUGH ENERGY', STATES SPOCK":[137]335
  165. 443 G[178]RE:GE[178]EN
  166. 444 [141]600:[137]410
  167. 450 [139]SC[177]40000[167][153]"'OUT OF RANGE, SIR' PROCLAIMS SULU":[142]
  168. 451 [139]PR[179]1[167][153]"CHEKOV SAYS, 'WE USED ALL THE PROBES!'":[142]
  169. 452 [139]LO[178]0[167][153]"'I CAN'T LOCK-ON!' SAYS SULU":[142]
  170. 453 [153]"COMPUTER LOCKED-ON":PR[178]PR[171]1:X[178][165]A(X)[172]10000:[139]X[177]SC[167]455
  171. 454 [137]470
  172. 455 [153]"'FIRING PROBE' STATES SULU"
  173. 456 [153]"'SENSORS REPORT A MISS' CLAIMS SPOCK":[142]
  174. 470 [153]"'FIRING PROBE' STATES SULU"
  175. 471 [153]"'SENSORS SHOW A HIT' CLAIMS SPOCK":RE[178]RE[171]10:[139]RE[179]1[167]800
  176. 472 [153]"SPOCK SAYS, 'THEY'RE DAMAGED SLIGHTLY'":[142]
  177. 480 [139]SC[179]5000[176]SC[177]150000[167][153]"'OUT OF PHASER RANGE', SAYS SULU":[142]
  178. 481 [139]PH[178]0[167][153]"'PHASER BANKS ARE DAMAGED', SAYS SCOTTY":[142]
  179. 482 [139]LO[178]1[167][153]"PHASERS LOCKED ON- FIRE!!!"
  180. 484 [129]L[178]54272[164]54296:[151]L,0:[130]:XX[178]54272
  181. 485 [129]X[178]15[164]0[169][171]1
  182. 486 [151]XX[170]24,X:[151]XX[170]4,17:[151]XX[170]5,15:[151]XX[170]1,40:[151]XX,200:[130]
  183. 487 [129]L[178]54272[164]54296:[151]L,0:[130]
  184. 490 [137]502
  185. 501 [153]"'I CAN'T LOCK-ON PHASERS!' SAYS SULU":[142]
  186. 502 EN[178]EN[171]2:X[178][165]A(X):[139]SC[177]5000[175]SC[179]10000[167]511
  187. 503 [139]SC[177]9999[175]SC[179]20000[167]517
  188. 504 [139]SC[177]19999[175]SC[179]30000[167]522
  189. 505 [139]SC[177]29999[175]SC[179]40000[167]528
  190. 506 [139]SC[177]39999[175]SC[179]50000[167]533
  191. 507 [139]SC[177]49999[175]SC[179]60000[167]538
  192. 508 [139]SC[177]59999[175]SC[179]90000[167]543
  193. 509 [139]SC[177]89999[175]SC[179]150000[167]548
  194. 510 [143]
  195. 511 [139]X[179]3[167]RE[178]RE[171]9:[139]RE[179]1[167]800
  196. 512 [139]X[178]3[167]RE[178]RE[171]7:[139]RE[179]1[167]800
  197. 513 [139]X[178]4[167]RE[178]RE[171]6:[139]RE[179]1[167]800
  198. 514 [139]X[178]5[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  199. 515 [139]X[178]6[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  200. 516 [142]
  201. 517 [139]X[178]1[167]RE[178]RE[171]8:[139]RE[179]1[167]800
  202. 518 [139]X[178]2[167]RE[178]RE[171]7:[139]RE[179]1[167]800
  203. 519 [139]X[178]3[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  204. 520 [139]X[177]3[167]RE[178]RE[171]6:[139]RE[179]1[167]800
  205. 521 [142]
  206. 522 [139]X[178]1[167]RE[178]RE[171]7:[139]RE[179]1[167]800
  207. 523 [139]X[178]2[167]RE[178]RE[171]6:[139]RE[179]1[167]800
  208. 524 [139]X[178]3[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  209. 525 [139]X[177]3[175]X[179]6[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  210. 526 [139]X[178]6[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  211. 527 [142]
  212. 528 [139]X[178]1[167]RE[178]RE[171]6:[139]RE[179]1[167]800
  213. 529 [139]X[178]2[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  214. 530 [139]X[177]2[175]X[179]6[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  215. 531 [139]X[178]6[175]X[179]6[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  216. 532 [142]
  217. 533 [139]X[179]3[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  218. 534 [139]X[177]2[175]X[179]5[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  219. 535 [139]X[178]5[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  220. 536 [139]X[178]6[167]RE[178]RE[171]2:[139]RE[179]1[167]800
  221. 537 [142]
  222. 538 [139]X[178]1[167]RE[178]RE[171]5:[139]RE[179]1[167]800
  223. 539 [139]X[177]1[175]X[179]4[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  224. 540 [139]X[177]3[175]X[179]6[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  225. 541 [139]X[178]6[167]RE[178]RE[171]2:[139]RE[179]1[167]800
  226. 542 [142]
  227. 543 [139]X[178]1[167]RE[178]RE[171]4:[139]RE[179]1[167]800
  228. 544 [139]X[177]1[175]X[179]4[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  229. 545 [139]X[178]4[167]RE[178]RE[171]2:[139]RE[179]1[167]800
  230. 546 [139]X[178]5[167]RE[178]RE[171]1:[139]RE[179]1[167]800
  231. 547 [142]
  232. 548 [139]X[178]1[167]RE[178]RE[171]3:[139]RE[179]1[167]800
  233. 549 [137]590
  234. 550 [153]"'HERE IS A DAMAGE REPORT' SAYS LT. UHURA"
  235. 551 [153]"TOTAL ENERGY UNITS:";EN
  236. 552 [153]"EMEMY SHIPS ENERGY:";RE
  237. 553 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  238. 554 [153]"PHOTON TORPEDOES  :";PT
  239. 555 [153]"ANTI-MATTER PROBES:";PR
  240. 556 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  241. 557 [153]"CURRENT WARP SPEED:";SP:[137]576
  242. 558 [153]"COURSE PLOT       :";
  243. 559 [139]CI[178]1[167][153]"FORWARD"
  244. 560 [139]CI[178][171]1[167][153]"REVERSE"
  245. 561 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  246. 562 [153]"WARP ENGINES      :";
  247. 563 [139]W[178]0[167][153]"DAMAGED"
  248. 564 [139]W[178]1[167][153]"FUNCTIONAL"
  249. 565 [153]"PHOTON TUBES      :";
  250. 566 [139]PO[178]0[167][153]"DAMAGED"
  251. 567 [139]PO[178]1[167][153]"FUNCTIONAL"
  252. 568 [153]"PHASER BANKS      :";
  253. 569 [139]PH[178]0[167][153]"DAMAGED"
  254. 570 [139]PH[178]1[167][153]"FUNCTIONAL"
  255. 571 [153]"TARGETING COMPUTER:";
  256. 572 [139]LO[178]0[167][153]"DAMAGED"
  257. 573 [139]LO[178]1[167][153]"FUNCTIONAL"
  258. 574 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  259. 575 [137]579
  260. 576 [153]"ENEMY WARP SPEED  :";KS:[137]558
  261. 579 [153]"OPEN"
  262. 580 [142]
  263. 590 [139]X[178]2[167]RE[178]RE[171]2:[139]RE[179]1[167]800
  264. 591 [139]X[178]3[167]RE[178]RE[171]1:[139]RE[179]1[167]800
  265. 599 [142]
  266. 600 [139]SC[179]20000[176]SC[177]200000[167][153]"'OUT OF PHOTON RANGE', SAYS CHEKOV":[142]
  267. 601 [139]LO[178]1[167][153]"PHOTONS LOCKED ON- FIRE!!!":PT[178]PT[171]1:[137]603
  268. 602 [153]"'I CAN'T LOCK-ON PHOTONS!' SAYS SULU":[142]
  269. 603 EN[178]EN[171]4:X[178][165]A(X):[139]SC[177]20000[175]SC[179]30000[167] 610
  270. 604 [139]SC[177]30000[175]SC[179]50000[167] 620
  271. 605 [139]SC[177]50000[175]SC[179]90000[167] 630
  272. 606 [139]SC[177]30000[175]SC[179]50000[167] 620
  273. 607 [139]SC[177]50000[175]SC[179]90000[167] 630
  274. 608 [139]SC[177]90000[175]SC[179]130000[167] 640
  275. 609 [139]SC[177]130000[175]SC[179]200000[167] 645
  276. 610 [139]X[179]6[167]RE[178]RE[171]8
  277. 611 [142]
  278. 620 [139]X[179]5[167]RE[178]RE[171]8
  279. 621 [142]
  280. 630 [139]X[179]4[167]RE[178]RE[171]8
  281. 631 [142]
  282. 640 [139]X[179]3[167]RE[178]RE[171]8
  283. 641 [142]
  284. 645 [139]X[179]2[167]RE[178]RE[171]8
  285. 646 [142]
  286. 650 TP[178](SP[174]3)[170]I:[139]W[178]0[167][153]"'WE'RE REPAIRING EM!' SAYS SCOTTY":[142]
  287. 651 [153]"'WERE GOIN' WARP";SP;"', SCOTT REPORTS":OS[178]SP
  288. 652 [133]"HOW FAST YA WANNA GO";SP
  289. 653 [139]OS[178]SP[167][153]"'MAINTAINING SPEED SIR,' SAYS SCOTTY":[142]
  290. 654 [139]SP[177]6[175]SP[179]8.1[167][153]"'BUT... OK YER THE CAP'N', SAYS SCOTT":[142]
  291. 655 [139]SP[179]6.1[175]SP[177][171].1[167][153]"AYE SIR, WARP";SP;"IT IS!":[142]
  292. 656 [153]"'YOU DINNA MAKE SENSE, CAP'N!":[137]652
  293. 690 MM[178]MM[170]1:[139]MM[177]3[167][153]"SULU SAYS,'WERE GONNA BLOW !...":[137]917
  294. 691 [153]"'SIR,";4[171]MM;"MINUTES UNTIL ANTI-MATTER"
  295. 692 [153]"EXPLOSION!', SAYS SULU":[142]
  296. 700 [133]"CHEKOV SAYS, 'FORWARD OR REVERSE, SIR'";CO$
  297. 701 [139][200](CO$,1)[178]"F"[167]CI[178]1:[153]"'MOVING AHEAD, SIR', STATES CHEKOV"
  298. 702 [139][200](CO$,1)[178]"R"[167]CI[178][171]1:[153]"'ENGINES REVERSED, SIR' SAYS CHEKOV"
  299. 710 [142]
  300. 750 [153]"SPOCK SAYS,'";SC;" KM AHEAD, SIR'":[142]
  301. 800 [139]RE[179][177]G[167][153]"'DIRECT HIT!' STATES SULU"
  302. 801 [153]"SPOCK REPORTS, 'SENSORS SHOW DEBRIS'
  303. 840 PRINT"THE BRIDGE CHEERS AND YELLS IN DELIGHT,"
  304. 851 PRINT"BUT IT IS SPOCK WHO ENDS IT ALL,"
  305. 852 PRINT"'SIR, I'M PICKING UP SOME ENERGY ON THE"
  306. 853 PRINT"SCANNERS.  IT MIGHT BE, YES IT'S A "
  307. 854 PRINT"ROMULAN VESSEL, THE ONE WE JUST HIT"
  308. 855 PRINT"MUST HAVE SENT A DITRESS CALL...":RD=RD+1
  309. 856 GOTO303
  310. 900 PRINT"SPOCK YELLS 'ROMULANS FIRING AT US!'"
  311. 901 X=INT(RND(1)*SC)+1:IFX<20000THENPRINT"'WE'VE BEEN HIT' SAYS SPOCK":GOTO910
  312. 902 PRINT"CHEKOV ANOUNCES, 'THEY MISSED US!'":RETURN
  313. 910 X=INT(RND(1)*5)+1
  314. 911 IFX=1ANDW=1THENPRINT"'THE ENGINES ARE DAMAGED!', SAYS SCOTTY":W=0:WW=10:RETURN
  315. 912 IFX=2ANDPO=1THENPRINT"SULU REPLIES, 'PHOTON TUBES DAMAGED!'":PO=0:PP=10:RETURN
  316. 913 IFX=3ANDPH=1THENPRINT"SULU REPLIES, 'PHASER BANKS DAMAGED!'":PH=0:HH=10:RETURN
  317. 914 IFX=4ANDLO=1THENPRINT"SULU SAYS 'TARGETING COMPUTER DAMAGED!'":LO=0:LL=6:RETURN
  318. 915 PRINT"'ABSORBED BY SHIELDS',SAYS SPOCK":EN=EN-5:RETURN
  319. 916 IFW=0ANDPO=0ANDPH=0ANDLO=0THENPRINT"'MAIN REACTOR HIT!' GROANS CHEKOV":MR=1:RETURN
  320. 917 PRINT"[145]PRESS A KEY":GETA$:IFA$=""THEN917
  321. 918 GOTO950
  322. 919 FORT=1TO1000:NEXT
  323. 920 PRINT"[147]MESSAGE FROM STARFLEET COMMAND:"
  324. 921 PRINT"[159]PROBE REPORTS FROM THE ";A$:PRINT"STAR ";
  325. 922 PRINTB$;" HAVE SHOWN ANTI-MATTER":PRINT"TRACES FROM A SHIP,"
  326. 923 IFLM=1THENPRINT"AND A LOG BOUY RECOUNTING RECENT ACTIV-":GOTO925
  327. 924 GOTO930
  328. 925 PRINT"ITIES.  DUE TO THE DATA IN THE BOUY,"
  329. 926 PRINT"IT HAS BEEN DETERMINED THAT THE ROMULANS";
  330. 927 PRINT"HAVE BROKEN THEIR TREATY.  WE HOLD THEM"
  331. 928 PRINT"RESPONSIBLE.  STAR FLEET WILL COUNTER   ATTACK IN THE NEAR FUTURE.":GOTO940
  332. 930 PRINT",SO FROM PRESENT INFO, IT CAN ONLY BE"
  333. 931 PRINT"ASSUMED THAT THE ENTERPRISE DRIFTED INTO A ";C$
  334. 940 PRINT"---------------------------------------"
  335. 941 PRINT"[158]COMMAND EVALUATION FOR: CAPTAIN ";LN$
  336. 942 PRINT"ROMULANS DESTROYED:"RD
  337. 943 PRINT"PROBES LEFT:";PR
  338. 944 PRINT"PHOTONS LEFT:";PT
  339. 945 PRINT"REMAINING ENERGY:";EN
  340. 946 PRINT"---------------------------------------"
  341. 947 GOSUB961:PRINT"[158]------ BATTLE COMPLETE ------":END
  342. 950 A=INT(RND(1)*4)+1
  343. 951 B=INT(RND(1)*4)+1
  344. 952 C=INT(RND(1)*4)+1
  345. 953 A$=X$(A)
  346. 954 B$=Y$(B)
  347. 955 C$=Z(null)(C)
  348. 960 GOTO919
  349. 961 IFRD<1THENPRINT"RATING: GREEN HORN":RETURN
  350. 962 IFRD<2THENPRINT"RATING: AMATEUR":RETURN
  351. 963 IFRD<3THENPRINT"RATING: PRO-AMATEUR":RETURN
  352. 964 IFRD<4THENPRINT"RATING: CAPTAIN":RETURN
  353. 965 IFRD<5THENPRINT"RATING: COMMODORE":RETURN
  354. 966 IFRD<6THENPRINT"RATING: ADMIRAL 5TH CLASS":RETURN
  355. 967 IFRD<7THENPRINT"RATING: ADMIRAL 4TH CLASS":RETURN
  356. 968 IFRD<8THENPRINT"RATING: ADMIRAL 3RD CLASS":RETURN
  357. 969 IFRD<9THENPRINT"RATING: ADMIRAL 2ND CLASS":RETURN
  358. 970 IFRD<20THENPRINT"RATING: ADMIRAL 1ST CLASS":RETURN
  359. 971 PRINT"CONGRATULATIONS, FLEET COMMANDER!!":RETURN
  360. 1000 IFLM<>1THENPRINT"'LOG BOUY ARMED AND..LAUNCHED' SAYS SULU";:LM=1:RETURN
  361. 1010 PRINT"'WE ALREADY LAUNCHED IT!' SAYS SULU"
  362. 1011 RETURN
  363. 1100 PRINT"THE REMAINING CREW OF THE 'ENTERPRISE'"
  364. 1101 PRINT"EJECTS TO SAFETY, AS THE ENTERPRISE"
  365. 1102 PRINT"BUCKLES INTO A BALL OF ENERGY"
  366. 1103 PRINT"LUCKILY, THE ROMULANS ARE ALSO WATCHING,";
  367. 1104 PRINT"AND YOU ESCAPE IN THE SHUTTLE CRAFTS"
  368. 1105 PRINT"AND ESCAPE PODS UNNOTICED..."
  369. 1106 PRINT"HIT ANY KEY"
  370. 1107 GETA$:IFA$=""THEN1107
  371. 1108 GOTO940
  372. 1300 PRINT"'SIR, ALL POWER IS GONE!!',SAYS SPOCK"
  373. 1301 PRINT"YOU HAVE NO ENERGY, YOUR LIFE SUPPORT   SYSTEMS STOP,YOU GASP FOR AIR..."
  374. 1303 GOTO917
  375. 2000 PRINT"[155][147]                                        ";
  376. 2001 POKE53281,6:POKE53280,12
  377. 2010 PRINT"[155] [146]                                      [160]";
  378. 2020 PRINT"[155] [146] [144]-----SPECIFIC COMPUTER COMMANDS----- [155][160]";
  379. 2030 PRINT"[155] [146]                                      [160]";
  380. 2040 PRINT"[155] [146]                                      [160]";
  381. 2050 PRINT"[155] [146] [154]PROBE--- LAUNCH ANTI-MATTER PROBE    [155][160]";
  382. 2060 PRINT"[155] [146] [154]PHASERS- FIRE FORWARD PHASERS        [155][160]";
  383. 2070 PRINT"[155] [146] [154]PHOTONS- FIRE FORWARD PHOTONS        [155][160]";
  384. 2080 PRINT"[155] [146]                                      [160]";
  385. 2090 PRINT"[155] [146] [154]SPEED--- SET WARP SPEED              [155][160]";
  386. 2100 PRINT"[155] [146] [154]COURSE-- SET FORWARD/REVERSE COURSE  [155][160]";
  387. 2110 PRINT"[155] [146] [154]WAIT---- MAINTAIN PRESENT STATUS     [155][160]";
  388. 2120 PRINT"[155] [146]                                      [160]";
  389. 2130 PRINT"[155] [146] [154]RANGE--- DISTANCE FROM ENEMY SHIP    [155][160]";
  390. 2140 PRINT"[155] [146] [154]STATUS-- SCAN OF BOTH SHIPS FUNCTIONS[155][160]";
  391. 2150 PRINT"[155] [146]                                      [160]";
  392. 2160 PRINT"[155] [146] [154]LAUNCH-- LOG BOUY (BEFORE YOU DIE)   [155][160]";
  393. 2170 PRINT"[155] [146] [154]ESCAPE-- ABANDON SHIP IN ESCAPE PODS [155][160]";
  394. 2180 PRINT"[155] [146]                                      [160]";
  395. 2190 PRINT"[155] [146] [144]------------------------------------ [155][160]";
  396. 2200 PRINT"[155] [146] [144]----------   HIT ANY KEY   --------- [155][160]";
  397. 2210 PRINT"[155] [146] [144]------------------------------------ [155][160]";
  398. 2220 PRINT"[155] [146]                                       ";
  399. 2230 PRINT"[155] [146]                                       ";
  400. 2240 PRINT"[155]                                       ";:POKE2023,160:POKE2023+54272,15
  401. 2250 GETA$:IFA$=""THEN2250
  402. 2251 GOTO40
  403.